home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / wb / czesc_2 / iconadder / install < prev    next >
Encoding:
Text File  |  1995-02-02  |  3.2 KB  |  177 lines
  1. ; IconAdder Installer Script
  2.  
  3. (complete 0)
  4.  
  5. (set target
  6.    (askdir
  7.       (prompt "Select the destination for IconAdder.")
  8.       (help @askdir-help)
  9.       (default "SYS:")
  10.       (newpath)
  11.    )
  12. )
  13.  
  14. (complete 20 )
  15.  
  16. (set target (tackon target "IconAdder" ) )
  17.  
  18. (makedir target
  19.    (infos)
  20. )
  21.  
  22. (set @default-dest target)
  23.  
  24. (copyfiles
  25.    (prompt "Choose which files to install.")
  26.    (help @copymain-help)
  27.    (source "")
  28.    (dest target)
  29.    (pattern "IconAdder#?" )
  30.    (confirm)
  31. )
  32.  
  33. (complete 50)
  34.  
  35. (set ask 0)
  36. (if (> (run "Version >Env:WhatIsVers.Tmp WhatIs.Library") 0)
  37.    (
  38.       (set whatisversion "None")
  39.       (set ask 1)
  40.    )
  41.    (
  42.       (set whatisversion
  43.          (substr (getenv "WhatIsVers.Tmp") 15 3 )
  44.       )
  45.       (set vers whatisversion)
  46.       (if (= vers "3.7")
  47.          (set ask 0)
  48.          (set ask 1)
  49.       )
  50.    )
  51. )
  52.  
  53. (if (= ask 1)
  54.    (set installwhatis
  55.       (askbool
  56.          (prompt "Copying WhatIs.Library...\n\n"
  57.                  "Version to install: 3.7\n"
  58.                  "Version currently installed: "
  59.                  whatisversion
  60.                  "\n\n"
  61.                  "Destination Drawer to Copy to:\n"
  62.                  "LIBS:\n")
  63.          (help @copylib-help)
  64.          (choices "Proceed with Copy" "Skip This Part")
  65.       )
  66.    )
  67.    (set installwhatis 0)
  68. )
  69.  
  70. (if (exists "Env:WhatIsVers.Tmp")
  71.    (delete "Env:WhatIsVers.Tmp")
  72. )
  73.  
  74. (if installwhatis
  75.    (copyfiles
  76.       (source "Libs/WhatIs.Library")
  77.       (dest "LIBS:")
  78.    )
  79. )
  80.  
  81. (complete 60)
  82.  
  83. (copylib
  84.  
  85.    (prompt "Copying ReqTools.Library...")
  86.    (help @copylib-help)
  87.  
  88.    (source "Libs/ReqTools.Library")
  89.    (dest "LIBS:")
  90.    (confirm)
  91. )
  92.  
  93. (complete 70)
  94.  
  95. (if (= @user-level 0 )
  96.    (set installicons 1)
  97.    (set installicons
  98.       (askbool
  99.          (prompt "Do you wish to install the icon examples?")
  100.          (help @askbool-help)
  101.       )
  102.    )
  103. )
  104.  
  105. (if installicons
  106.    (copyfiles
  107.       (prompt "Choose icons to install to ENV:...")
  108.       (help @copyicons-help)
  109.       (files)
  110.       (source "Icons/")
  111.       (dest "ENV:Sys/")
  112.       (pattern "Def_#?.info")
  113.       (confirm)
  114.    )
  115. )
  116.  
  117. (complete 80)
  118.  
  119. (if installicons
  120.    (copyfiles
  121.       (prompt "Choose icons to install to ENVARC:...")
  122.       (help @copyfiles-help)
  123.       (files)
  124.       (source "Icons/")
  125.       (dest "ENVARC:Sys/")
  126.       (pattern "Def_#?.info")
  127.       (confirm)
  128.    )
  129. )
  130.  
  131. (complete 90)
  132.  
  133. (if (exists "S:FileTypes")
  134.    (if (= @user-level 0)
  135.       (set installfiletypes 1)
  136.       (set installfiletypes
  137.          (askbool
  138.             (prompt "Do you wish to install a new 'FileTypes' file?\n"
  139.                     "You already have one installed.\n" )
  140.             (help @askbool-help)
  141.          )
  142.       )
  143.    )
  144. )
  145.  
  146. (complete 95)
  147.  
  148. (set filetypeschoice 0)
  149.  
  150. (if installfiletypes
  151.    (
  152.       (set filetypeschoice
  153.          (askchoice
  154.             (prompt "Choose which 'FileTypes' to install...")
  155.             (help @askchoice-help)
  156.             (choices "Standard FileTypes" "Modified FileTypes")
  157.          )
  158.       )
  159.       (if (= filetypeschoice 0)
  160.          (copyfiles
  161.             (source "S/")
  162.             (dest "S:")
  163.             (choices "FileTypes")
  164.          )
  165.       )
  166.       (if (= filetypeschoice 1)
  167.          (copyfiles
  168.             (newname "FileTypes")
  169.             (source "S/FileTypes_IconAdder")
  170.             (dest "S:")
  171.          )
  172.       )
  173.    )
  174. )
  175.  
  176. (complete 100)
  177.